Top 10k strings from Biorhythmus (1984)(Juergen Gerdes)(de)(Part 4 of 5).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 tage=tage+1
   2 :BIORHYTHMUS
   2 "GEBURTSDATUM: ";
   1 w$="SAMSTAG   SONNTAG   MONTAG    DIENSTAG  MITTWOCH  DONNERSTAGFREITAG   "
   1 tage=tage-2
   1 tage=tage-
   1 s(j)=s/6.8
   1 l$="77688:7"
   1 k(j)=k/6.8
   1 g(j)=g/6.8
   1 dt=t2-t1-1
   1 a$="c")+1000
   1 a$="b")+500
   1 a$="a")+200
   1 > BIORHYTHMUS <
   1 ;t;".";m;".";
   1 ;"WEITER?"
   1 ;"TT.MM.JJJJ"'
   1 ;"NAECHSTE TAGE?"
   1 ;"> WOCHENTAG-BESTIMMUNG >"
   1 ;"> TV-GRAFIK <"
   1 ;"> BIORHTHMUS - TAGESWERT <"
   1 :WOCHENTAG-
   1 :WOCHENTAG
   1 :DATUMSUEBERLAUF
   1 :DATUMSEINGABE
   1 :ANZAHL DER TAGE SEIT
   1 : BIOWERTE AUS DEM
   1 : BIORYTHMUS
   1 ),"SEELE:",
   1 ),"KOERPER:",
   1 (dt/y)*y+.5
   1 "biorhyt4.p"
   1 "SIE SIND AN EINEM ";a$'"GEBOREN."'"AM ";b$;", DEN ";d$'"SIND SIE ";dt;" TAGE ALT."
   1 "RGH-SOFTWARE PRAESENTIERT:",,,"** ZX   - BIORHYTHMUS **",,,
   1 "IHRE WERTE AM ";d$;" "
   1 "GEBURTSDATUM: ";a$
   1 "DATUM: ";
   1 "ANFANGSDATUM: ";d$
   1 "ANFANGSDATUM: ";
   1 "ANALYSEDATUM: ";
   1 "> PRINTER-GRAFIK <"
   1  WOCHENTAG-BESTIMMUNG"''"
   1  TV-GRAFIK
   1  PRINTER-GRAFIK
   1  ERRECHNEN
   1  DEM 1.1.-1
   1  DATUM  G    S    K   ";"
   1  BIORYTHMUS (PRINTER-GRAFIK)"
   1  BIORHYTHMUS (TV-GRAFIK)"''"
   1  BIORHYTHMUS (TAGESWERT)"
   1  BESTIMMUNG
   1  ALTER IN TAGEN (DT)
   1  1 = ";d$;
   1  -TAGESWERT